home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / TimBot IV / TimBot IV next >
Text File  |  1990-05-28  |  1KB  |  81 lines
  1. # TimBot IV
  2. # (c) 1990 Tim Seufert
  3. # 1/5/90
  4. # Still feeling slightly like a banana,
  5. # but if I get enough Electric Monks to 
  6. # believe it for me, I won't have to worry
  7. # anymore.
  8.  
  9. randomdir:
  10.     random aim' store
  11.     random 150 > posx negx ife
  12.     random 150 > posy negy ife
  13.     main jump
  14.  
  15. posx:
  16.     4 speedx' store
  17.     4 a' store
  18.     return
  19.  
  20. negx:
  21.     -4 speedx' store
  22.     -4 a' store
  23.     return
  24.  
  25. posy:
  26.     5 speedy' store
  27.     return
  28.  
  29. negy:
  30.     -5 speedy' store
  31.     return
  32.  
  33. main:
  34. #    energy shield' store
  35.     x 50 < right if
  36.     x 250 > left if
  37.     y 50 < down if
  38.     y 250 > up if
  39.     range 0 > ShootSub if
  40.     collision shootemup if
  41.     aim 11 + aim' store
  42.     main jump
  43.  
  44. right:
  45.     4 speedx' store
  46.     return
  47.  
  48. left:
  49.     -4 speedx' store
  50.     return
  51.  
  52. down:
  53.     5 speedy' store
  54.     return
  55.  
  56. up:
  57.     -5 speedy' store
  58.     return
  59.  
  60. shootemup:
  61.     range 0 > DoBlowEmUp Rotate2 ife
  62.     collision not exit if
  63.     shootemup jump
  64.  
  65. Rotate2:
  66.     aim 60 + aim' store
  67.     return
  68.  
  69. DoBlowEmUp:
  70.     150 fire' store
  71.     nop nop nop nop nop nop nop nop nop nop
  72.     nop nop nop nop nop
  73.     return
  74.  
  75. exit:
  76.     drop
  77.     return
  78.  
  79. ShootSub:
  80.     energy fire' store
  81.     return